#!/usr/bin/perl -w

use strict;
use Data::Dumper;
my $tmp = '11*22*33';
my @see = split(/\*/, $tmp);
print Dumper(@see);