while (<>){ chomp; push(@links, $_); } $string = join(' ', @links); system ("opera $string");