$smstext =~ s~^(.*\n.*\n)~wrap('', '', $1)~e;