#!/usr/local/bin/perl -w

# A program for transforming simple text to HTML.
# Written by Fredrik Siesing, WprFeb99.


# Declare Variables 
# $text 		

print ("Skriv in din text här. Skriv b där du vill att den feta texten ska börja, följt av mellanslag. Och bb när du vill att den ska avslutas, följt av mellanslag.\n\n");					# Gives user a brief introduction to 
										# the program.
		
print ("Skriv din text nedan:\n\n");						# Asks user to type in his text.
$text = <STDIN>;								# Recieves the data.
		
$text =~ s/bb\b/<\/b>/g;							# BB changes to HTML-tag </B>.
$text =~ s/b\b/<b>/g;								# B changes to HTML-tag <B>.
	
print ($text);									# Prints the result.	

print ("Nu var programmet slut!\n\n");						# Lets the user know that this 
										# is the end of the program.

exit;										# Ends program.