100-azlyrics.pl 391 B

1234567891011121314151617181920212223
  1. #
  2. ## azlyrics.com support
  3. #
  4. use strict;
  5. use warnings;
  6. scalar {
  7. site => 'azlyrics.com',
  8. code => sub {
  9. my ($content) = @_;
  10. if ($content =~ m{<span.+?id="cf_text_top".*?></span>.*?<div>(.*?)</div>}is) {
  11. my $lyrics = $1;
  12. $lyrics =~ s{<.*?>}{}sg;
  13. $lyrics =~ s/^\s+//;
  14. return $lyrics;
  15. }
  16. return;
  17. }
  18. }