Help for this page

Select Code to Download


  1. or download this
    my $str_A = q{Camedia C-730 UltraZoom\UZoom/UZ (White)};
my @words_A = split m{[-\\)\(/ ]+}, $str_A;
...
my $str_B = q{Acer Laptop XXYYY00MM 2.0 Ghz is an amazing piece};
my ( $words_B ) = $str_B =~ m{(.*Ghz)};
print "\n$words_B\n";
  2. or download this
    Camedia
C
...
White

Acer Laptop XXYYY00MM 2.0 Ghz