print $day, $/ if $day !~ /^(?:0|6)$/; #### print $day, $/ if $day !~ /^[06]$/;