if( $inputStr =~ /^(Arranged\,|Transcribe\,)/ ){
   ### do your stuff
}