you could do $txt= join ('', ($txt =~ /(.*)_(\..*)/)) || $txt;