$source = "one\ntwo\none\nthree";
$source =~ m/(one.*?ee)/s;