#!/usr/bin/perl 
use warnings; 
use strict; 
 
my $file = "A-Campfire-Song.html"; 
 
sub read_file { 
    my ($filename) = shift; 
    my @lines; 
 
    open (FILE, "$filename") or die "Can`t open $filename : $!"; 
 
    while (<FILE>) { 
        push @lines, $_; 
    } 
 
    close FILE; 
    return @lines; 
} 
 
foreach my $match (&read_file($file)) { 
    print "Matched $match\n" if $match =~ m/<pre class=\"s\">(.*)/ig; 
}