$ perl -E '$string = "Zelazowa Wola, Symphonic Poem, For Orchestra In B Minor, Op. 37"; say $string =~ m/(For.*In)/;'
For Orchestra In