100-songlyrics.pl 350 B

12345678910111213141516171819202122
  1. #
  2. ## songlyrics.com support
  3. #
  4. use strict;
  5. use warnings;
  6. scalar {
  7. site => 'songlyrics.com',
  8. code => sub {
  9. my ($content) = @_;
  10. if ($content =~ m{id="songLyricsDiv-outer".*?<p.*?>(.*?)</p>}si) {
  11. my $lyrics = $1;
  12. $lyrics =~ s{<.*?>}{}sg;
  13. return $lyrics;
  14. }
  15. return;
  16. }
  17. }