# Google Scholar person-oversigter # Outputfil tagged med: UU: | AU: | EM: | IN: | CR: use strict; use warnings; my $file = $ARGV[0]; open(INPUT, $file) or die("Input file $file not found.\n"); my $output = $ARGV[1]; open(OUTPUT, '>'.$output) or die "Can't create $output.\n"; while(my $line = ) { $line =~ s|