#!/usr/bin/perl
use 5.10.0;
my @work=("I Arranged a meet.", "Transcribe this", "Shud Not MATCH");
for $work(@work) {
    if (($work =~ /Transcribe/) || ($work =~ /Arranged/) ) {
          say $work; 
    } 
}