Split will work fine, but you have to do some funny schtuff. my @strings = map {/\w/ ? /^\s*(.*?)\s*$/ : ()} split /\bsp\b/, $string;