Help for this page
$vacation_str =~ s/((msg|vacation.msg)|a(cation.msg|t(ation.msg|ition +.msg))|catation.msg|g|i(on.msg|tion.msg)|msg|n.msg|on.msg|sg|t(ation. +msg|i(on.msg|tion.msg))|vacation.msg)//;