if ( $work =~ / (For [^,^\(^#^-]+)/ )
...