#!/usr/bin/perl # your code goes here my $string = "1937.89 1*11.1 1938.03 2*2222.22 0*000.00 3*33333.333 1938.06 "; $string =~ s/\s(\d+)\*(\d+\.\d+)\s/$2"\ $2"x$1/g
Standard input is empty
Standard output is empty
syntax error at prog.pl line 7, near "print" Execution of prog.pl aborted due to compilation errors.