in reply to Re: Regex word options
in thread Regex word options

why not try:

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