#!/usr/local/bin/perl

$str = "a[-\.]*?b[-\.]*?c";
$str2 = "zzzza---..bcddddd";
$str2 =~ /($str)/;
print $1,"\n";