if ( ($input_line =~ /^\W$/) && eof(INPUT_HANDLE) ) {
    # this is eof
}