use Env; my $re = qr/]* # an anchor tag href= # the Href in the anchor (["'])((?:(?!\1).)*)\1 # the value in the href [^>]*> # anything to the end of the anchor ([^<>]*) # <- ADDED () HERE! <\/a> # the end of the anchor (?:\s|<[^>]*>)+ # any whitespace or html tags (\d{4}-\d{2}-\d{2}) # the 9 digit number /isxm ; open (DATA,$ARGV[0]) ; my $string = do{local $/; }; while($string =~ m/$re/g){ my $name = $3 ; # ADDED THIS my $STMT_FILE = $2 ; $STMT_FILE =~ s/\s+//g; my $DOB = $4 ; # ADDED THIS print "name: $name\n"; print "Date of Birth is: $DOB\n"; print "Statement File: $STMT_FILE\n"; print "\n"; }