[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]strict[/green][red];[/red]
[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]$data[/blue] = [url=http://perldoc.perl.org/functions/do.html][black][b]do[/b][/black][/url] [red]{[/red][url=http://perldoc.perl.org/functions/local.html][black][b]local[/b][/black][/url] [blue]$/[/blue][red];[/red] <DATA>[red]}[/red][red];[/red]
[olive][b]if[/b][/olive] [red]([/red][blue]$data[/blue] =~ [red]m{[/red][purple]/[purple][b]\*[/b][/purple][purple][b]\s[/b][/purple]*(.*?)[purple][b]\s[/b][/purple]*[purple][b]\*[/b][/purple]/[/purple][red]}[/red][red]s[/red][red])[/red] [red]{[/red]
[url=http://perldoc.perl.org/functions/print.html][black][b]print[/b][/black][/url] [blue]$1[/blue][red];[/red]
[red]}[/red]
[teal]__DATA__[/teal]
[teal]do anyone know the best way to capture pattern match and capture the data from the begining of a delimeter to the end of the delimeter.[/teal]
[teal]see sample data below[/teal]
[teal]/* its a marvelous day and the weather is warm[/teal]
[teal] now is the time to settle our differences[/teal]
[teal]and embrace each other with one love */[/teal]
[teal]I HAVE COUPLE OF THIS DATA IN COUPLE FILES THAT I WILL LIKE TO GREP. COULD YOU PLEASE HELP? THANKS[/teal]