Change omni input pattern for Perl