my ($f,$l) = /^(.).*(?<=(.))/s;