$name1 = 'Morrisville Jones-Ingham Executive and Sales Recruiting '; $name2 = 'Jones-Ingham Executive and Sales Recruiting - Morrisville, NC, United States of America'; $location = "Morrisville"; $name1 =~ s/ - $location.*//; print $name1,"\n"; $name2 =~ s/ - $location.*//; print $name2,"\n";