for ($user_input) {
    s/foo/bar/g;
    tr/A-Z/a-z/g;
    print unless /^#/;
}