print $split_me=~/^(.*?)$split_char.*$/;