999-albumcancionyletra.pl 496 B

12345678910111213141516171819202122232425
  1. #
  2. ## albumcancionyletra.com support
  3. #
  4. use strict;
  5. use warnings;
  6. scalar {
  7. site => 'albumcancionyletra.com',
  8. code => sub {
  9. my ($content) = @_;
  10. if ($content =~ m{<div class="letra">(.*?</script>)\s*</div>}si) {
  11. my $lyrics = $1;
  12. $lyrics =~ s{<script>(.*?)</script>}{}gs;
  13. $lyrics =~ s{<br\h*/?>}{\n}gi;
  14. $lyrics =~ s{<.*?>}{}sg;
  15. $lyrics =~ s/^\s+//;
  16. return $lyrics;
  17. }
  18. return;
  19. }
  20. }