why not try:
if( $inputStr =~ /^(Arranged\,|Transcribe\,)/ ){ ### do your stuff } [download]
In reply to Re^2: Regex word options by falpizar91 in thread Regex word options by jeffrgsf