我如何知道文件是否在Perl中以制表符或空格分隔？

#!/usr/bin/perl

use strict;
use warnings;

open(my $fh, '<', 'yourfile.txt') or die "Can't open file: $!";

while (my $line = <$fh>) {
    chomp $line;
    if ($line =~ /\t| /) {
        print "Line contains a tab or space: $line\n";
    } else {
        print "Line does not contain a tab or space: $line\n";
    }
}

close($fh);