Select Code to Download

$str = '<a>Test case 1
   <b>Test case 2
...
while($str=~/<c>\s*(.*?)\s*<\/c>/){
print $1;
}