if ($vacation_str =~ m!$HOME/$library::common{username}/!i) { ...