C:\>perl -E "my @work=(\"I Arranged a meet.\", \"Transcribe this\"); 
for $work(@work) { 
    if ($work =~ /Transcribe||Arranged/) {
        say $work; 
    } 
}

I Arranged a meet.
Transcribe this

C:\>