#!/usr/bin/perl

@a=qw(perl css html cgi ssi xhtml xml sgml xslt java javascript);

foreach $b (@a){    #@aの要素を順次$bに代入
  
  if($b=~/ml/){     #mlを含んでいる言葉を捜す
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css html cgi ssi xhtml xml sgml xslt java javascript);

foreach $b (@a){    #@aの要素を順次$bに代入
  
  if($b=~/x.l/){     #.は任意の1文字に対応
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css html cgi ssi xhtml xml sgml xslt java javascript);

foreach $b (@a){    #@aの要素を順次$bに代入
  
  if($b=~/s*i/){     #*は直前の文字の0回以上の繰り返し
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css html cgi ssi xhtml xml sgml xslt java javascript);

foreach $b (@a){    #@aの要素を順次$bに代入
  
  if($b=~/s+i/){     #+は直前の文字の1回以上の繰り返し
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css html cgi ssi xhtml xml sgml xslt java javascript);

foreach $b (@a){    #@aの要素を順次$bに代入
  
  if($b=~/x?ml/){     #?は直前の文字が0回もしくは1回
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css html cgi ssi xhtml xml sgml xslt java javascript);

foreach $b (@a){    #@aの要素を順次$bに代入
  
  if($b=~/[abc]/){     #[]の文字のどれかが一致
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(10 256 304 20 150 440);

foreach $b (@a){    #@aの要素を順次$bに代入
  
  if($b=~/[3-6][0-1]/){     #3から6までの後に0から1まで
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(10 256 304 20 150 440);

foreach $b (@a){    #@aの要素を順次$bに代入
  
  if($b=~/[^3-6][0-1]/){     #^は含まない文字の指定
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css html4.01 cgi ssi xhtml1.1 xml sgml xslt java javascript);

foreach $b (@a){
  
  if($b=~/\d/){     #数字を含む
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css html4.01 cgi ssi xhtml1.1 xml sgml xslt java javascript);

foreach $b (@a){
  
  if($b=~/s{2}/){     #sが2個
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css html4.01 cgi ssi xhtml1.1 xml sgml xslt java javascript);

foreach $b (@a){
  
  if($b=~/j(.)v\1/){     #j任意の1文字v2文字目と同じ文字
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css html4.01 cgi ssi xhtml1.1 xml sgml xslt java javascript);

foreach $b (@a){
  
  if($b=~/html|scr/){     #htmlかscr
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(perl css HTML cgi ssi xhtml1.1 xml sgml xslt java JavaScript);

foreach $b (@a){
  
  if($b=~/html|java/){     #htmlかjava
      print"$b\n";
  }
}

print"-----------------\n";

foreach $b (@a){
  
  if($b=~/html|java/i){     #htmlかjavaで、大文字小文字を区別しない
      print"$b\n";
  }
}

#!/usr/bin/perl

@a=qw(sgml xslt javajava javascript);

foreach $b (@a){
  
  $b=~s/java/VB/;     #最初のjavaをVBに変換
  print"$b\n";
}

print"----------------------\n";

foreach $b (@a){
  
  $b=~s/java/VB/g;     #全てのjavaをVBに変換
  print"$b\n";
}

#!/usr/bin/perl

@a=qw(perl css html cgi ssi xhtml1.1 xml sgml xslt java javascript);

$b=join(":",@a);    #:で結合

print"$b\n";

#!/usr/bin/perl

$a="perl,css,html,cgi,ssi,xhtml1.1,xml,sgml,xslt,java,javascript";

@b=split(/,/,$a);    #,で分割

print"@b\n";