if ( /^.*\@/ ) { &Frobnitz($_); }