Select Code to Download

sub find_year {
    my( $str ) = @_;
...
) {
    print $title , " => ", find_year($title), "\n";
}

sub find_year {
    my( $str ) = @_;
...

for my $title {
print $title , " => ", find_year($title), "\n"; }