This
Code:
print("£");
how can i change this?
print("£");
$count{$mark} = () = $text =~ m/(\Q$mark\E)/g
#!c:/Perl/bin/perl.exe
print("Please type in the file name\n");
$file= <STDIN>;
open(FILE, "$file") || die "Couldn't open file: $!";
$text = join(//,<FILE>);
@marks = ( '!', '"', '\'', '\(', '\)', ',', '-', '\.', '/', ':',
Leave a comment: